(icomplete-get-keys): Look up KEYS using all maps in proper buffer.

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index b1e8fa5ebb58989522709eab797af0a3e54daadc..3eb4b4babf2531b3b4d057bcfae82176f9e89361 100644 (file)
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -147,8 +147,7 @@ is minibuffer."
     (save-excursion
       (let* ((sym (intern func-name))
             (buf (other-buffer nil t))
-            (map (save-excursion (set-buffer buf) (current-local-map)))
-            (keys (where-is-internal sym map)))
+            (keys (with-current-buffer buf (where-is-internal sym))))
        (if keys
            (concat "<"
                    (mapconcat 'key-description